home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 23 / AACD 23.iso / AACD / Programming / tek / kn / elate / visual / getparameters.asm < prev    next >
Assembly Source File  |  2001-05-12  |  1KB  |  47 lines
  1.  
  2.     .include 'taort'
  3.     .include 'ave/toolkit/toolkit.inc'
  4.     .include 'lib/tek/kn/elate/visual.inc'
  5.  
  6. ;=============================================================================
  7. ;-----------------------------------------------------------------------------
  8. ; 
  9. ;    TEKlib
  10. ;    (C) 1999-2001 TEK neoscientists
  11. ;    all rights reserved.
  12. ;
  13. ;    void kn_getparameters(TAPTR v, struct visual_parameters *p)
  14. ;
  15. ;-----------------------------------------------------------------------------
  16. ;=============================================================================
  17.  
  18.     tool 'lib/tek/kn/visual/getparameters',VP,TF_EMBED
  19.  
  20. ;-----------------------------------------------------------------------------
  21.  
  22.     ent p0 p1 : -
  23.  
  24.     defbegin
  25.     defp visual,params
  26.     defi w,h,fw,fh
  27.  
  28.         cpy.i    [visual+vis_width],w
  29.         cpy.i    [visual+vis_height],h
  30.         cpy.i    [visual+vis_fontwidth],fw
  31.         cpy.i    [visual+vis_fontheight],fh
  32.         cpy.i    w,[params]
  33.         cpy.i    h,[params+4]
  34.         cpy.i    w/fw,[params+8]
  35.         cpy.i    h/fh,[params+12]
  36.         cpy.i    fw,[params+16]
  37.         cpy.i    fh,[params+20]
  38.  
  39.         ret
  40.  
  41.     defend
  42.  
  43.     toolend
  44.  
  45. ;-----------------------------------------------------------------------------
  46. ;=============================================================================
  47.